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Report Warga 


Setelah membuat FormWargaGrid dan FormFilmGrid, kini Anda akan 
membuat Report untuk masing-masing tabel tersebut. Dalam bab ini, 
Anda dipandu untuk membuat Report Warga dengan memanfaatkan 
fitur Crystal Report. Untuk membuat Report Film, Anda dapat latihan 


sendiri dengan memakai cara yang sama. 


9.1 Membuat Report Warga 


Sebelum membuat Report Warga, di komputer Anda harus sudah diinsta- 
lasi Crystal Report (lihat Lampiran 1: Instalasi Crystal Report untuk 
VB2010). Report Warga merupakan laporan untuk data-data Warga 
rental vcd, sehingga Anda dengan mudah melihat Warga yang menjadi 


Anggota. Langkah membuatnya sebagai berikut: 


1. Buat DSN (Data Source Name) atau ODBC (Open Database 


Connectivity), dengan memilih Control Panel di menu Start. 
2. Klik atau pilih menu System and Security di jendela Control Panel. 
3. Pilih menu Administrative Tools di jendela System and Security. 


4. Pilih Data Sources (ODBC) di jendela Administrative Tools. 
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10. 


11. 


Di jendela ODBC Data Source Administrator, pilih tab System DSN 
dan klik tombol Add. 


Pilih nama driver Microsoft Access Driver (“.mdb, “.aaccdb) dan klik 


tombol Finish di jendela Create New Data Source. 


Muncul jendela ODBC Microsoft Access Setup, ketik 
DSNDBRentalVCD di kotak Data Source Name. Lalu ketik Access 
2007 Database di kotak Description (keterangan), kemudian klik 


tombol Select.... 


Muncul jendela Select Database, arahkan Drives ke d: dan ke folder 
Debug, sehingga database DBRentalVCD.mdb berada pada kolom 
Database Name, kemudian klik tombol OK. 


Muncul kembali ke jendela ODBC Microsoft Access Setup dan 
terlihat database DBRentalVCD.mdb, klik tombol OK. 


Kembali ke jendela ODBC Data Source Administrator, klik tombol 
OK dan tutup jendela Control Panel. 


Anda ubah framework ke versi yang lebih rendah. Untuk memastikan 
Crystal Report didukung di VB2010, caranya klik kanan pada 
ProjectRentalVOD lalu pilih menu Properties, seperti berikut. 


FormWargaGrid.vb (Design) Solution Explorer 


alas 


l PeniortRentalVCD 
ČË Build Project 
Rebuild [config 
Can EntalVCDDataSet.xsd 
hAnggotaGrid.vb 
& | 
($ Publish.. SFilmGrid.vb 
Add * 1ReportAnggotavb 
Add Reference... WargaGrid.vb 
p Add Service Reference... 
& View Class Diagram 
Debug , 
OË Add Project to Source Control... 
& Cut Ctrl+X xplorer E MERA 
tri- 
Rename MVCD Project Properties 


Open Folder in Windows Explorer 


K2 Properties AlttEnter Je ProjectRentalVCD.vbproj 


Gambar 9.1 Menu Properties ProjectRentalVCD 
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12. Pilih tab Compile, seperti berikut. 


Certquman Acme Derug o) Pem (hee bk) . 


DAN merana Te - 


Gambar 9.2 Tab Compile 


13. Gulung layar ke bawah dan klik tombol Advanced Compile 
Options..., seperti berikut. 


Centguman At Debug) 54 Piom: Ace båt) d 
| Compie 
Late tindang cat cosa tad at ran tera (Mane -js 
Oetug „o Mi 
Impnot type ctyect essumed None Bi 
Refurences Used venabie per te esngament (warung “| 
Resources Punctan renarng reference trpe maha return vahe wang - 
eg Funcben rebarang mine vakse type athea retar value | Warung 2j. 
Orubio së memng 
Sog 
Trest al warengs as oors 
Syng 4 Gene AM documertunan tie 
My Ganong Basha [verer 
Securty 
JAANA Compia S 


Gambar 9.3 Tombol Advanced Compile Options 


14. Terlihat Target framework adalah .Net Framework 4 Client Profile. 
Kavanced Cormpiler Se a 


Optimizations 
Remove integer overflow checks Enable opbmustions 
DLL base address: 
Generate debug info [Eun xj 
Compdation Constants 
7 Define DEBUG constat V Define TRACE constant 


Custom constants 


Bample Namel » Valuel" Name?= "Value?" Name3a "Value?" 
Generate serialtation assembbes 
f 


[Auto -| 

Target CPU: 

bes sj 

Target framework fall configurations} 

[NET Framework 4 Chent Profile -l 
Cox Jl ce | 


Gambar 9.4 Target Framework 4 Client Profile 
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15. Ubah Target framework dengan mengklik tombol panah ke bawah 
menjadi .Net Framework 3.5 Client Profile, kemudian klik tombol 
OK, seperti gambar berikut. 


“Advanced Compiler Settings ce j 


Optimizations 


E| Remove integer overflow checks [E Enable optimizations 
DLL base address: &H00400000 
Generate debug info: | Full X 


Compilation Constants 
(WI Define DEBUG constant [V] Define TRACE constant 


Custom constants: 


Example: Namel="Valuel",Name2="Value2",Name3="Value3" 


Generate serialization assemblies: 


[Auto Mi 
Target CPU: 
bas zj 


Target framework (all configurations): 
l NET Framework 3.5 Client Profile EA | 


Gambar 9.5 Target Framework 3.5 Client Profile 


16. Muncul informasi yakin untuk mengubah target framework di 
jendela Traget Framework Change, klik tombol Yes, seperti berikut. 


targ nge 


E ) Changing the Target Framework requires that the current project be 
CP closed and then reopened. 
Any unsaved changes within the project will be automatically saved. 


| 


Changing Target Framework may reguire manual modification of 
project files in order to build. 


Are you sure you want to change the Target Framework for this project? 


a a Meta 


Gambar 9.6 Jendela Target Framework Change 
17. Untuk memasukkan komponen CrystalReport Viewer di jendela 


ToolBox pada folder Reporting, klik kanan di area ToolBox di bawah 
folder General dan pilih Choose Items..., seperti gambar berikut. 
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D All Windows Forms 


D Common Controls 


D Containers 


D Menus & Toolbars 
D Data 
D Components 

D Printing 

D Dialogs 

D WPF Interoperability 

D Reporting 

D Visual Basic PowerPacks 
| » General 
IA Paste Ctrl+V 


V| ListView 
Show All 

| Choosettemsu  — | 
Sort Items Alphabetically 
Reset Toolbox 
Add Tab 
Delete Tab 
Rename Tab 
Move Up 


Move Down 


Gambar 9.7 Menu Choose Items 


18. Pilih tab .Net Framework (Components dan komponen 
CrystallReportViewer dengan memberi tanda checklist (centang) 
pada kotak di depan komponen tersebut, kemudian klik tombol OK. 


Govetotortem T A PARA 


Silverlight Components |  SystemWorkflow Components | System.Activities Components ' 
NET Framework Components COM Components I WPF Components 
Name Namespace Assembly Name Directory ^ 
Control System.Windows.Forms System.Windows.For... Global As 
| F] Control System.Web.UI System.Web Global as | | | 
FI CorrelationToken System.Workflow.Runtime  System.Workflow.Run... Global As | 
|| | CreateUserWizard System.Web, UL.WebControls System.Web Global As | 
CrystalOpenFileDialog CrystalDecisions.SharediInter... CrystalDecisions.Shar... Global As 
F] CrystalReportDocument CrystalDecisions.CrystalRepo... CrystalDecisions.Cryst... Global As | 
F] CrystalReportPartsViewer CrystalDecisions.Web CrystalDecisions.Web ... Global As 
VJ CrystalReportSource CrystalDecisions.Web CrystalDecisions.Web ... Global As 
[Z] CrystalReportViewer CrystalDecisions.Web CrystalDecisions.Web ... Global As 
MA Cet Mali E Certa Mat HIT RAmbaila( nannte Certa Minh MALA Liah! Ar 
4 | 
Filter: Clear | 
CrystalReportViewer | 
& Language: Invariant Language (Invariant Country) Browse... | 
| 
| 
Cox JO canca | 
| 


Gambar 9.8 Komponen CrystallReportViewer 


19. Sehingga komponen CrystallReportViewer berada di folder Reporting 
pada jendela ToolBox, seperti Gambar 9.9. 
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Xogjoo| X% 


Toolbox 
All Windows Forms 


Common Controls 
Containers 
Menus & Toolbars 
Data 
Components 
Printing 
Dialogs 
WPF Interoperability 
4 Reporting 
R Pointer 
El ReportViewer 
& CrystalReportViewer 
G GrystalReportDocument 
Visual Basic PowerPacks 
General 


Gambar 9.9 Komponen CrystallReportViewer di folder Reporting 


20. Untuk memasukkan komponen CrystalReport Viewer di jendela 
ToolBox pada folder Reporting, klik kanan di area ToolBox di bawah 
folder General dan pilih Choose Items..., seperti Gambar 9.10. 


`X 


X0GIOO | 


#1 Toolbox 


“ax 
All Windows Forms 
Common Controls 
Containers 
Menus & Toolbars 
Data 
Components 
Printing 
Dialogs 
WPF Interoperability 
Reporting 
Visual Basic PowerPacks 
D General 
Paste 
[V] ListView 
Show All 
Choose Items... 
S s Alphab 


Reset Toolbox 
Add Tab 
Delete Tab 
Rename Tab 
Move Up 
Move Down 


Gambar 9.10 Menu Choose Items 


21. Pilih tab .Net 


Framework Components dan komponen 


CrystallReportViewer dengan memberi tanda checklist (centang) 
pada kotak di depan komponen tersebut, kemudian klik tombol OK. 
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" Choose Toolbox Items 1 i PEE 
Silverlight Components | System.Workflow Components | System.Activities Components 
| NET Framework Components COM Components | WPF Components 
| 
| | Name Namespace Assembly Name Directory “ 
Control System.Windows.Forms System.Windows.For... Global As 
| E Control System.Web.UI System.Web Global As] 
CorrelationToken System.Workflow.Runtime System.Workflow,Run... Global As 
(| CreateUserWizard System.Web.UI.WebControls System.Web Global As 
F] GrystalOpenfileDialog CrystalDecisions.Shared.Inter... CrystalDecisions.Shar... Global As 
| MI CrystalReportDocument CrystalDecisions.CrystalRepo... “CrystalDecisions.Cryst... Global As 
V] CrystalReportPartsViewer CrystalDecisions.Web CrystalDecisions.Web ... Global As 
MJ CrystalReportSource CrystalDecisions.Web CrystalDecisions.Web ... Global As 
vis wer CrystalDecisi Windows.Fo o! 
| MI CrystalReportViewer CrystalDecisions.Web CrystalDecisions.Web ... Global As B g 
| aa Perdana Laman Mala Maba lonte Beta Wah Mantan AAN | 


Filter: 


CrystalReportViewer 
& Language 


Invariant Language (Invariant Country) 


Gambar 9.11 Komponen CrystallReportViewer 


22. Sehingga komponen CrystallReportViewer berada di folder Reporting 
pada jendela ToolBox, seperti Gambar 9.12. 


b All Windows Forms 


b Common Controls 

b Containers 

b Menus & Toolbars 

b Data 

b Components 

b Printing 

b Dialogs 

D WPF Interoperability 

Li 

R 
E CrystalReportViewer 
$ 

b Visual Basic PowerPacks 


Pointer 


ReportViewer 


CrystalReportDocument 


b General 


Gambar 9.12 Komponen CrystallReportViewer di folder Reporting 


23. Buka ProjectRentalVCD, klik kanan ProjectRentalVCD dan pilih 
menu Add » New Item.... 


24. Pilih template Windows Form dan klik tombol Add, seperti berikut. 
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Add New Hem - PreyectRenta NCD Sa 
Installod Templates Sorby (Deen - D Insta e P 


4 Common Items 


Online Templates 


User Control (WPP) 


About Box 


te) 
a 
j 
SG) Component Claw 
« 
B 


ADO.NET Entity Data Model Commen Rems 


Ta 
TA 
Gambar 9.13 Template Windows Form 
25. Buat tampilan form, seperti Gambar 9.14. 
Form Report Warga 


Gambar 9.14 Tampilan form FormReportWarga 


26. Atur properti Form, seperti tabel di bawah ini. 


No | Objek Properti Nilai 
1 Form1 Name FormReportWarga 
2 Form1 ControlBox False 
3 Form1 StartPositiom CenterScreen 
4 Form1 Text Form Report Warga 
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5 Form1 FormBorderStyle FixedSingle 
6 Button1 Name btnSelesai 
7 Button1 Text &Selesai 

8 Button1 Font Style Bold 


Tabel 9.1 Pengaturan Properti FormReportWarga 


27. Pilih menu File » Save Form3.vb As..., seperti Gambar 9.15. 


08 PerjecartaNCD - Merosoh Vaus Studio 

Fie bat Vem Pret Bui. Debug Team. Data Format Tonks Test Window. Heip 
GI Nen CideN “pi jid u a BA ^a Deug 
8 
3 


Racer Fles 


Pecert Proyect and Sohstens 


bt anra 


Gambar 9.15 Menu Save Form As 


28. Simpan file dengan nama FormReportWarga. 


29. Tempatkan objek CrystalReportViewer dari ToolBox pada folder 
Reporting ke FormReportWarga dan atur properti Dock nilainya 
menjadi None, seperti gambar berikut. 


“Form Report Warga 


u Page No. Total Page No. o Zoom Factor: 100% 


Gambar 9.16 CrystalReportViewer di FormReportWarga 
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30. Klik tombol Smart tag (tombol panah ke kanan) di pojok kanan atas. 


O eo 
SAP CRYSTAL REPORTS® 


Current Page No. Total Page No.: Zoom Factor: 100% 


Gambar 9.17 Tombol Smart Tag 


31. Pilih menu Create a New Crystal Report. .., seperti gambar berikut. 


CrystalReportViewer Tasks 
Create a New Crystal Report... 
Choose a Crystal er 


Create a new report and bind it to 
Choose a Tool Panel View: TGrou 


(MJ Display Toolbar 


(MI Display Status Bar 


Dock in Parent Container 


Gambar 9.18 Menu Create a New Crystal Report 


32. Muncul jendela Create a New Crystal Report, seperti gambar berikut. 


Cancel 


Gambar 9.19 Jendela Create a New Crystal Report 


33. Ketik CrystalReportWarga.rpt pada kolom Specify a name for the 
new report, kemudian klik tombol OK. 


34. Muncul jendela Crystal Report Gallery, secara default (bawaan) 
memilih Using the Report Wizard dan klik tombol OK. 


p -o aw r 
Crystal Reports Gallery il 


Create a New Crystal Report Document 


IN @ Using the Report Wizard 
m As a Blank Report 


D © From an Bisting Report 


Choose an Expert 


Tab 
Mail Label 


Guides the creation of a typical report. 


Gambar 9.20 Jendela Crystal Report Gallery 


35. Muncul jendela Standard Report Creation Wizard pada bagian Data, 
klik + pada Create New Connection, dan pilih (klik) folder ODBC 
(RDO), seperti gambar berikut. 


» Standard Report Creation Wizard "si 
Data 
Choose the data you want to report on. An 
Available Data Sources: Selected Tables: 


| @ @Project Data 
@ @My Connections 
| &@ @ Create New Connection 
| @ @Access/Excel (DAO) 
Œ @ADO.NET (XML) 
= @ Database Files 
m @ODBC (RDO) 
Œ @OLE DB (ADO) 
Œ @ More Data Sources 


[  Net> |) [ Finish} (canca) [Hep 


Gambar 9.21 Memilih folder ODBC (RDO) 
36. Muncul jendela ODBC (RDO) pada bagian Data Source Selection, 


pilih DSNDBRentalVCD pada kotak Data Source Name, kemudian 
klik tombol Finish, seperti Gambar 9.22. 
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Find File OS 


Eate Cennechen Stnng 


Gambar 9.22 Jendela ODBC (RDO) 


37. Pada bagian Data, klik tanda + pada folder ODBC (RDO) dan pilih 
tabel Warga, klik tombol » seperti gambar berikut. 


Javstatte Data Sources Setetes Tabie 


Ge Ga Game ne | 
Gambar 9.23 Bagian Data 


38. Sehingga tabel Warga ada di kolom Selected Tables dan klik tombol 
Next >, seperti gambar berikut. 


o — 
Seed Tabler 
B OSNOERerteliCD 
Bro | 
| 
Ma benar Comani Heip 
"1 


Gambar 9.24 Tabel Warga di kolom Selected Tables 
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39. Muncul jendela Fields dan klik tombol >> untuk memilih semua 
field tabel Warga, seperti gambar berikut. 


» Stang Report Cresson Wasd — 


Fed 
Crosse ti 


Freids to Dugir 


a Tama Goes m 


Gambar 9.25 Memilih semua field tabel Warga 


40. Sehingga semua field tabel Warga berada pada kolom Fields to 
Display dan klik tombol Finish, seperti gambar berikut. 


| Bronse Ona. Em 


Gambar 9.26 Semua field Warga di kolom Fields to Display 


41. Sehingga tercipta file CrystalReportWarga, seperti gambar berikut. 


jectRont J gal Angg t gn 


` |sriseon2pagstisnder 4 


- |Pnstoate 


z a 
T Secbon3 Petata ) R aaa m mn 
NoktP » NamaAng » Alamatang . Ikang a Jotahir 
7 Secronk Rapat Foster ) 
w Secion5 Page Footer ) 


je Numae? 


Gambar 9.27 File CrystalReportWarga.rpt 
42. Klik tab Main Report Preview di bawah CrystalReportWarga. 
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43. 


44 


45. 
46. 


47. 


|CrystalReportWarga.rpt rpt" x BESEN 
V] Save data in the report 


FormReportWargavb (Design)  FormAnggotaGrid.vb (Design) FormWargaGrid.vb 


Sad 1 yas GI 10% ~ 
Ni — - — - a 


SAP CRYSTAL REPORTS * 


05/05/2013 

NoKTP NamaAng Alamatang JkAng TalLahir 

1111111111 Yuniar Supardi Cisalak LakHaki 20/06/1964 

2222222222 Ganesha Noor Cisalak LakHaki 20/06/1994 

3333333333 Tania Noor Cisalak Perempuan 20/06/1992 
| 4444444444 Zumastina Noor Cisalak Perempuan 20/06/1998 


Gambar 9.28 Preview CrystalReportWarga.rpt 


Modifikasi untuk judul field NamaAng, AlamatAng, JKAng dan 
TglLahir, dengan klik kanan judul field lalu pilih menu Edit Text 
Object, sehingga hasilnya seperti gambar berikut. 


CrystalReportWarga.rpt rpt" X Moga) FormReportWarga.vb (Design) FormAnggotaGrid.vb (Design) FormWargaGrid.vb 


203 BIMBEL I7 ISSI TO NTT A21 Aa Ah MBM 1 MBP 15177 11181 1 "1971 "20 
w Sectionl (Report Header ) 


w Section2 (Page Header ) 

- (Print Date | 

| (NoKTP 7 Nama Anggota 7 Alamat Anggota ` Jenis Kelamin > TalLahir 
 Section3 (Details ) 


. (NoKTP " NamaAng " AlamatAng " UkAng " TglLahir 
w Sectiond (Report Footer ) 


w Section5 (Page Footer ) 


- Je Number 


Gambar 9.29 Memodifikasi judul field 


Masukkan perintah di button Selesai, perintahnya sebagai berikut: 


Private Sub btnSelesai Click (ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles btnSelesai.Click 


Me.Close() 


End Sub 


Kemudian klik ikon Save All (Ctrl+Shift+S). 


Sebelum menjalankan FormReportWarga, pilih menu Project > 
ProjectRentalVCD Properties... dan atur Start form menjadi 
FormReportWarga. 


Untuk menjalankan program atau file FormReportWarga, klik ikon 
Start Debugging (F5), akan muncul keluaran FormReportWarga. 
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SAP CRYSTAL REPORTS® G 


bh 
& 
@ 
EP 
El 
ma 
e 
3 
P 


05/05/2013 

NoKTP Nama Anggota Alamat Angge 
1111111111 Yuniar Supardi Cisalak 
2222222222 Ganesha Noor Cisalak 
3333333333 Tania Noor Cisalak 

Zumastina Noor Cisalak id 
T allas mnnn) t 
Current Page No.: 1 Total Page No.: 1 Zoom Factor: 100% 


Cs) 


Gambar 9.30 FormReportWarga dijalankan 


48. Klik tombol Selesai. 
Catatan: Anda buat lagi untuk FormReportFilm. 
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10 


Form Password 


Form Password merupakan Form untuk hak akses sistem Rental VCD 
menggunakan tabel pswd di dalam database DBRentalVCD.mdb. 


10.1 Membuat ModuleUmum 

Untuk membuat moduleUmum, ikuti langkahnya sebagai berikut: 
1. Jalankan VB2010. 

2. Buka project dengan nama ProjectRentalVOD. 


3. Buat item baru dengan mengklik kanan project ProjectRentalVCD 


dan memilih menu Add » New Item..., seperti Gambar 10.1. 


Solution taplorer 


Pe IA ira | AE jan DA 
TA Penari anta NCD 
5) Build $ 
Rebudd g 
Clean ertAnggota.rpt 
ertfilm,rpt 
D Pubish onWaraa rot 
Add r | E) Newtem. Carle Shit A 
Add Reference.. ij beting ltem... Cute D 
Add Service Reterence Ci New Folder 
Sà View Class Diagram D Windows Form. 
Debug >| User Control 
RS Add Project to Source Control. (BJ) Component. 
ha Ciriex u) Module. 
ps tie “g Class. 
Rename Project Properties 
J Open Folder in Windows Explorer 
n Papa AtsEnter ProjectRenteVCD.vbproj 


Gambar 10.1 Menu New Item 
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4. Muncul jendela Add New Item, pilih Templates Module, ketik 
Moduleumum di kotak Name dan klik tombol Add, seperti berikut. 


Intake Temat. Kan seta g 2 
. Commandes 
Ipa Common der 
Ka ts Y yie Sent Comman Bam = 
Alie ter derang ponpa deretan 
ag ng n 
Coma Faret tae enmon pama 
D 
Wet x 
Watoe Feri he om sera ten MN 
#apetng 
meta j) una senen dara 
us a. 
| 
ing renta Cememan dam 
| -= 
Wendoan Fom Cammen Pama 
| fj heces Common dam 
i) conpor cims meman dea 
| 
E) ve com wor Camar dara 
E] ansa eraran beru 
E iiini ai 
| mme Moaseimanis —— MM | 


Gambar 10.2 Jendela New Item 


5. Ketik script di dalam ModuleUmum, sebagai berikut. 


Public Function Koneksi() As OleDb.OleDbConnection 


Dim con As OleDb.OleDbConnection 


con-New OleDb.OleDbConnection ("Provider-Microsoft.Jet.OLEDB.4.0: 
Data Source-" & Application.StartupPath & "NDBRentalVCD.mdb") 
Return con 
con - Nothing 


End Function 


Arti Perintah: Untuk mengoneksi ke database DBRentalVCD.mdb. 


6. Tampilan script di dalam ModuleUmum, seperti gambar berikut. 


30 ProjectRentalVCD - Microsoft Visual Studio 
ka Nan Project, Buki, Debug Tean Deta Toni, Jeet Mindo He... 
Sea dd kaka 2/9-0-A-3 Pp uga 


b X FormFilmGrid.vb FormFilmGrid.vb [Design] ProjectRentalVCD DBRentalVCDDataSetxsd 


X 


3 
3 
8 
7 
2 


EModule ModuleUmum 
Public Function Koneksi() As OleDb.OleDbConnection 


3 Dim con As OleDb.0leDbConnection 

F con = New OleDb.OleDbConnection("ProvidersMicrosoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\DBRentalVCD.mdb") 
hå Return con 

È con = Nothing 

; End Function 


| End Module 
| 


Gambar 10.3 Isi ModuleUmum 
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7. Simpan dengan mengklik ikon Save (bergambar disket). 


8. Buat Form baru dengan mengklik kanan ProjectRentalVCD, pilih 


menu Add » Windows Form.... 


9. Muncul jendela Add New Item, ketik Form Password dan klik 
tombol Add, sehingga muncul form seperti Gambar 10.4. 


a9 Form Password =] -a-m 


a 


Gambar 10.4 Form_Password 


10. Atur properti-properti objek yang ada di Form_Password. 


No Objek Properti Nilai 

1 Form Text Form_Password 
2 Form ControlBox False 

3 Form StartPosition CenterScreen 

4 Form Name Form_Password 
5 Label1 Text Nama 

6 Label1 Font Style Bold 

7 Label1 Name IblNama 

8 Label2 Text Password 

9 Label2 Font Style Bold 

10 Label2 Name IblPassword 

11 TextBox1 Name TxtNama 
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12 TextBox1 Font Style Bold 

13 TextBox1 MaxLength 30 

14 TextBox2 Name TxtPassword 
15 TextBox2 Font Style Bold 

16 TextBox2 MaxLength 30 

17 Button1 Name BtnOK 

18 Button1 Text &OK 

19 Button1 Font Style Bold 

20 Button2 Name BtnBatal 
21 Button2 Text &Batal 

22 Button2 Font Style Bold 

23 Button3 Name BtnKeluar 
24 Button3 Text &Keluar 
25 Button3 Font Style Bold 


Tabel 10.1 Pengaturan Properti-Properti Objek di Form Password 


11. Sehingga tampilan Form Password setelah diatur propertinya, seperti 
pada Gambar 10.5. 


Form Password 


Gambar 10.5 Form Password setelah diatur propertinya 


10.2 Memberi Perintah Form. Paseword 


Untuk membuat Form Password, ikuti langkahnya sebagai berikut: 
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1. Buat metode bersih, menuju ke view code di jendela Solution 
Explorer (tekan tombol F7) langsung ketik perintah, sebagai berikut. 
Private Sub bersih() 
Me.TxtNama.Clear () 


Me.TxtPassword.Clear () 


Me.TxtNama.Focus () 


End Sub 


Arti Perintah: Untuk mengosongkan objek TextBox. 


2. Tampilan metode bersih di jendela view code, seperti berikut. 


Form Password.vb X MESUDE Seal Moduleumum.vb ProjectRentalVCD 


Rg Form_Password ~| É (Dedarations) 


-IPublic Class Form Password 
= Private Sub bersih() 
Me.TxtNama.Clear() 
Me.TxtPassword.Clear() 
Me.TxtNama.Focus() 
End Sub 


End Class 


Gambar 10.6 Metode bersih di jendela view code 


3. Kemudian klik ikon Save (bergambar disket). 


4. Buka kembali database DBRentalVCD.mdb, tambahkan tabel pswd, 


dengan struktur seperti table di bawah ini. 


No Nama Field Type Size 
1 nama Text 30 
2 password Text 30 


Tabel 10.2 Struktur Field Tabel pswd 


5. Untuk field nama sebagai kunci utama. 


6. Isi tabel pswd dengan 2 record, seperti tabel di bawah ini. 
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No Record nama password 


1 yuniar admin 


2 ganesha user 


Tabel 10.3 Record Tabel pswd 


7. Untuk memberi perintah pada Button OK, klik dua kali button OK. 


8. Kemudian ketik perintah, sebagai berikut. 


Try 

Dim da As OleDb.OleDbDataAdapter 

da = New OleDb.OleDbDataAdapter ("Select “ from 
pswd where nama ='" & Me.TxtNama.Text & Trg 


ModuleUmum.Koneksi) 

Dim dt As New DataTable 

dt.Clear () 

da.Fill (dt) 

If dt.Rows.Count - 0 Then 
MsgBox ("Tidak Terdaftar, coba lagi!!!!") 
bersih () 
Exit Sub 

End If 

Dim dr As DataRow 

For Each dr In dt.Rows 
If Me.TxtPassword.Text = dr ("password") Then 


MsgBox ("Selamat Memakai Sistem Rental 
VCD " & vbCrLf & vbCrLf & "Ir. Yuniar Supardi" & vbCrLf & 
vbCrLf & "Tekan tombol Enter Utk Masuk", MsgBoxStyle.OkOnly) 


Dim forms As New Form Password 


forms.1blNama. Text = 
UCase (Me .TxtNama. Text) 


Me.Hide() 


forms.ShowDialog () 
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Else 
MsgBox ("Password Anda Salah!!!") 


Me.TxtPassword.Clear () 


Me.TxtPassword.Focus () 
Exit Sub 
End If 
Next 
Catch ex As Exception 
MsgBox (ex.Message, MsgBoxStyle.Information) 


End Try 


9. Klik ikon Save. 


10. Klik dua kali button Keluar, ketik perintah sebagai berikut. 


Try 
Dim da As OleDb.OleDbDataAdapter 
da - New OleDb.OleDbDataAdapter ("Select “ from 
pswd where nama -'yuniar'", ModuleUmum.Koneksi) 
Dim dt As New DataTable 
dt.Clear () 
da.Fill (dt) 
Dim dr As DataRow 
For Each dr In dt.Rows 
If Not Me.TxtPassword.Text = dr("password") 
Then 
MsgBox ("Hanya Admin yang bisa 
Shutdown!!!") 
bersih () 


Me.TxtNama.Focus () 
Exit Sub 
End If 


Next dr 
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MsgBox ("Aplikasi ShutDown!!!", 
MsgBoxStyle.OkOnly) 


End 
Catch ex As Exception 
MsgBox (ex.Message, MsgBoxStyle.Information) 


End Try 


11. Klik ikon Save. 


12. Klik dua kali button Batal, ketik perintah sebagai berikut. 
bersih () 


13. Beri perintah (Event) KeyPress untuk objek TxtNama, caranya 
dengan mengklik objek TxtNama, kemudian pada jendela Properties, 
pilih ikon Event, kemudian pilih KeyPress dengan mengklik dua kali, 
sehingga muncul tulisan TxtNama Keypress, ketik perintah berikut. 

If e.KeyChar = Chr (11) Then 
Me.TxtPassword.Focus () 


End If 


Arti Perintah: Untuk fokus ke objek TxtPassword. 


14. Beri perintah (Event) KeyPress untuk objek TxtPassword, caranya 
dengan mengklik objek TxtPassword, kemudian pada jendela 
Properties, pilih ikon Event, kemudian pilih KeyPress dengan 
mengklik dua kali, ketik perintah sebagai berikut. 

If e.KeyChar - Chr(11) Then 
Me.BtnOK.Performclick () 


End If 


10.2 Menjalankan Form. Paseword 
Untuk menjalankan Form Password, ikuti langkahnya sebagai berikut: 


1. Jalankan VB2010. 
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2. Buka project dengan nama ProjectRentalVCD. 
3. Buat StartUp Form menjadi Form Password. 


4. Jalankan Form Password, masukkan nama dan password. 


5 
Form Password 


Lx | | aa | | Keluar | 


Gambar 10.7 Form Password pertama dijalankan 


5. Klik tombol OK, muncul pesan, seperti Gambar 10.8. 


Form Password 


ProjectRentalVCD 


Selamat Memakai Sistem Rental VCD 
Ir. Yuniar Supardi 


Tekan tombol Enter Utk Masuk 


Gambar 10.8 Pesan selamat memakai Sistem Rental VCD 


6. Klik tombol OK, sehingga tampilan akhir Form Password, seperti 
Gambar 10.9. 


Form Password 


ok.) (| Baa |) | Kewar | | 


Gambar 10.9 Tampilan akhir Form Password 


7. Jalankan lagi dan masukkan data yuniar dan admin, kemudian klik 
tombol OK, seperti Gambar 10.10. 
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Selamat Memakai Sistem Rental VCD 


Ir. Yuniar Supardi 


Tekan tombol Enter Utk Masuk 


Gambar 10.10 Jalankan kembali Form Password 


8. Klik tombol OK pada jendela ProjectRentalVCD. 


9. Kemudian ketik kembali yuniar dan admin, lalu klik kembali tombol 
Keluar, muncul pesan Aplikasi Shutdown dan klik tombol OK. 


Gambar 10.11 Aplikasi Form Password ditutup 
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11 


Form Peminjaman 


Setelah membuat database dan membuat tabel di dalamnya, kemudian 
Anda membuat program manajemen database untuk tabel master, seperti 
FormFilmGrid, FormAnggotaGrid, FormWargaGrid dan 
Form Password. Sekarang waktunya Anda membuat program dengan 


memakai file tabel transaksi. 


Form Peminjaman merupakan form transaksi yang memakai beberapa 


tabel, sehingga pembuatan programnya berbeda. 


11.1 Membuat Form Peminjaman 
Untuk membuat Form Peminjaman, langkahnya sebagai berikut: 
1. Buat tampilan form seperti gambar berikut. 


as! Form Transaksi Peminjaman Film > = 


Gambar 11.1 Tampilan Form_Peminjaman 
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2. Simpan file dengan memilih menu File » Save Forml.vb As..., 
kemudian ubah namanya menjadi Form Peminjaman. 


3. Atur properti Form, seperti tabel di bawah ini. 


No Objek Properti Nilai 

1 Form1 Name Form Peminjaman 

2 Form1 ControlBox False 

3 Form1 StartPositiom CenterScreen 

4 Form1 Text Form Transaksi 
Peminjaman Film 

5 Form1 FormBorderStyle Fixed Single 

6 Label1 Text Tanggal Pinjam 

7 Label1 FontStyle Bold 

8 DateTimePicker | Name DateTimePicker1 

9 Label2 Text No Transaksi 

10 Label2 FontStyle Bold 

11 TextBox1 Text Dikosongkan (dihapus) 

12 TextBox1 Name TxtNoTransaksi 

13 Label3 Text No Anggota 

14 Label3 FontStyle Bold 

15 ComboBox1 Name CboNoAnggota 

16 Label4 Text Nama Anggota 

17 Label4 FontStyle Bold 

18 TextBox2 Text Dikosongkan (dihapus) 

19 TextBox2 Name TxtNamaAnggota 

20 GroupBox1 Name GroupBox1 

21 GroupBox1 Text Rinci Film 

22 GroupBox1 Font Style Bold 

23 Label5 Text Kode Film 
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24 Label5 FontStyle Bold 

25 ComboBox2 Name CboKodeFilm 
26 Label6 Text Judul Film 

27 Label6 FontStyle Bold 

28 TextBox3 Text Dikosongkan (dihapus) 
29 TextBox3 Name TxtJudulFilm 
30 DataGridView1 Name DataGridView1 
31 Button1 Name BtnSimpan 

32 Button1 Text &Simpan 

33 Button1 FontStyle Bold 

34 Button2 Name BtnBatal 

35 Button2 Text &Batal 

36 Button2 FontStyle Bold 

37 Button3 Name BtnKeluar 

38 Button3 Text & Keluar 

39 Button3 FontStyle Bold 


Tabel 11.1 Pengaturan Properti Objek Form Peminjaman 


Sehingga tampilan Form Peminjaman setelah diatur propertinya, 


seperti Gambar 11.2. 


Tanggal Pintam 15 Jaw 2013 
No Anggota No KTP 
Nama Anggota 
Rinci Fim 
Kode Film "Judi Film 
deria Film 
Kondisi 
Status Pinjam 
Keterangan 
Harga Totat 
Simpan Batat Keluar 


Gambar 11.2 Tampilan Form Peminjaman setelah diatur propertinya 


3; 


Tempatkan DBRentalVCDDataSet, AnggotaTableAdapter, 
FilmTableAdapter, seperti Gambar 11.3. 


Ò 


4 ProjectRentalVCD Components 


Toolbox BEEJ b Form. Pengembalian.vb [Design] C EA Form Penge: 


xoqjooj 


Ik Pointer 
m $ CachedCrystalReportFilm T Me Ai 2013 B- 
Pi of CachedCrystalReportWargarpt. 
$ & CrystalReportFilm | Kp 
ES SF CrystalReportWargarpt. 
pI — = 1 Nama Anggot: 
es 3g DBRentalVCDDataSet z 
2 a o a 
5 Sk AnggotaTableAdaf pp 
3 & BayarTableAdapter| Ver 0 Ia 
j ER NET Comp a 
EM SF DetailPinjamTableAdapter 2 
9 Kondisi 
EM Kk FilmTableAdapter 
PE 4 PinjamTableAdapter Status Pinjam 
& TableAdapterManager Keterangan 
Sk WargaTableAdapter Sa 
All Windows Forms 


4 Common Controls 


Pointer 

Button 
CheckBox 

E3 CheckedListBox 


EEN 


Gambar 11.3 Menempatkan DataSet dan TableAdapter 


11.1.1 Memberi Perintah Form. Peminjaman 


dan 


Untuk memberi perintah objek-objek di Form Peminjaman, langkahnya 
sebagai berikut: 


l; 
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Pada jendela Solution Explorer atau pilih menu View > Code atau 


tekan tombol F7, untuk menuju ke tempat pengetikan (code editor). 


Kemudian pada bagian Object pilih General dan pada bagian 


Procedure pilih Declarations, ketik perintah sebagai berikut. 


Imports System.Data.OleDb 


Pada jendela Solution Explorer pilih ikon View Designer atau pilih 


menu View > Designer atau tekan tombol Shift+F7, untuk menuju 


ke form. 


Pada jendela Solution Explorer atau pilih menu View > Code atau 
tekan tombol F7, lalu pada bagian Object pilih Form_Peminjaman 
dan pada bagian Procedure pilih Declarations, ketik perintah berikut. 


7. 


8. 


Public strSgl As String 

Public DB As OleDbConnection 
Public CMD, CMD2 As OleDbCommand 
Public ADP As OleDbDataAdapter 
Public RS, RS2 As OleDbDbataReader 


Public DS As New DataSet 


Dim SQL, SOL2, SQL3, SOL4, SQL5 As String 


Pada jendela Solution Explorer pilih ikon View Designer atau pilih 
menu View > Designer atau tekan tombol Shift+F7, untuk menuju 


ke form. 


Menuju ke tempat pengetikan, di bawah perintah deklarasi 
Form. Peminjaman, ketik subprogram OpenDBIY), sebagai berikut. 
Public Sub OpenDB () 


Dim LOKASI = "Provider-Microsoft.Jet.OLEDB.4.0:Data 
Source-" & Application.StartupPath & "NDBRentalVCD.mdb" 


DB = New OleDbConnection (LOKASI) 

If DB.State - ConnectionState.Closed Then 
DB.Open () 

End If 


End Sub 


Ketik kembali subprogram TampilkanRecordDetailPinjam() berikut. 
Sub TampilkanRecordDetailPinjam () 


ADP - New OleDbDataAdapter ("SELECT * FROM 
DetailPinjam", DB) 


DS = New Dataset 
ADP.Fill(DS, "DetailPinjam") 
DataGridViewl.DataSource = DS.Tables("DetailPinjam") 


End Sub 


Ketik kembali subprogram HapusText(), sebagai berikut. 
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10. 


11. 


12. 
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Sub HapusText () 
TxtNoTransaksi.Text = "" 
CboNoAnggota.Text = "" 
TXtNOKTP.Text = "" 
TxtNamaAnggota.Text = "" 
cboKodeFilm.Text = "" 


TxtJudulFilm.Text = "" 


TxtJenisFilm.Text = "" 
TxtKeterangan.Text = "" 
TxtKondisi.Text = "" 


TxtStatusPinjam.Text = "" 


TxtHarga.Text - "" 


End Sub 


Kemudian pada bagian Object pilih DateTimePickerl dan pada 
bagian Procedure pilih KeyPress, ketik perintah sebagai berikut. 
If e.KeyChar - Chr(13) Then 
Me.CboNoAnggota.Focus () 


End If 


Kemudian pada bagian Object pilih TxtNoTransaksi dan pada bagian 
Procedure pilih KeyPress, ketik perintah sebagai berikut. 
If e.KeyChar - Chr(13) Then 
Me.CboNoAnggota.Focus () 


End If 


Pada jendela Solution Explorer pilih ikon View Designer atau pilih 
menu View > Designer atau tekan tombol Shift+F7, untuk menuju 
ke form. 

Klik dua kali tombol perintah Keluar, kemudian ketik perintah: 


Me.Close() 


13. Kemudian pada bagian Object pilih Form Peminjaman dan pada 
bagian Procedure pilih Load, ketik perintah sebagai berikut. 
DataGridVviewl.ClearSelection () 
Me.FilmTableAdapter.Fill (Me.DBRentalVCDDataSet.Film) 
Call OpenDB () 


SOL 


Il 


"SELECT * FROM Anggota" 

CMD = New OleDbCommand (SQL, DB) 

RS = CMD.ExecuteReader 

CboNoAnggota.Items.Clear () 

Do While RS.Read() 
CboNoAnggota.Items.Ada (RS ("NoAnggota")) 

Loop 

SOL2 = "SELECT * FROM Film" 

CMD2 = New OleDbCommand (SOL2, DB) 

RS2 - CMD2.ExecuteReader 

cboKodeFilm.Items.Clear () 

Do While RS2.Read() 
cboKodeFilm.Items.Add (RS2 ("kodeFilm")) 

Loop 

Call HapusText () 


Call TampilkanRecordDetailPinjam () 


14. Kemudian pada bagian Object pilih cboNoAnggota dan pada bagian 
Procedure pilih Click, ketik perintah sebagai berikut. 


Try 
If Not CboNoAnggota.Text - " " Then 
Dim da As OleDb.OleDbDataAdapter 
da = New OleDb.OleDbDataAdapter ("Select * 
from Anggota where NoAnggota -'" & Me.CboNoAnggota.Text & 


"1", ModuleUmum. Koneksi) 


Dim dt As New DataTable 


dt.Clear () 


da.Fill (dt) 
TxtNOKTP.DataBindings.Add ("Text", dt; 
"NOKTP") 
Else 
Me.CboNoAnggota.Text = " " 
End If 
Catch ex As Exception 
MsgBox (ex.Message, MsgBoxStyle.Information) 
End Try 
Txt NOKTP.DataBindings.Clear () 
Try 
If Not TxtNoKTP.Text = " " Then 
Dim da2 As OleDb.OleDbDbataAdapter 
da2 = New OleDbb.OleDbbDataAdapter("Select * 
from Warga where NoOKTP -'" & Me.TxtNoKTP.Text & "'", 


ModuleUmum.Koneksi) 
Dim dt2 As New DataTable 
dt2.Clear () 
da2.Fill(dt2) 


TxtNamaAnggota.DataBindings.Add ("Text", dt2, 
"NamaAng" ) 


Else 
Me.TxtNOKTP.Text = " *" 
End If 
Catch ex As Exception 
MsgBox (ex.Message, MsgBoxStyle.Information) 
End Try 


TxtNamaAnggota.DataBindings.Clear () 


15. Pada bagian Object pilih cboNoAnggota dan pada bagian Procedure 
pilih LostFocus, ketik perintah seperti no. 14. 
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16. Pada bagian Object pilih cboNoAnggota dan pada bagian Procedure 
pilih SelectedIndexChanged, ketik perintah seperti no. 14. 


17. Kemudian pada bagian Object pilih cboKodeFilm dan pada bagian 
Procedure pilih Click, ketik perintah sebagai berikut. 


Try 
If Not cboKoderilm.Text = " " Then 
Dim da As OleDb.OleDbDataAdapter 
da = New OleDb.OleDbDataAdapter ("Select * 
from Film where KodeFilm -'" & Me.cboKodeFilm.Text & "'", 


ModuleUmum.Koneksi) 
Dim dt As New DataTable 
dt.Clear () 
da.Fill (dt) 


TxtJudulFilm.DataBindings .Add ("Text", dt, 
"Judul") 


Else 
Me.cboKodeFilm.Text = " " 
End If 
Catch ex As Exception 
MsgBox (ex.Message, MsgBoxStyle.Information) 
End Try 


TxtJudulFilm.DataBindings.Clear () 


Try 
If Not cboKodeFilm.Text = " " Then 


SQL = "Select * from Film where KodeFilm -'" 
& Me.cboKoderilm.Text & "'" 


CMD = New OleDbCommand (SQL, DB) 
RS - CMD.ExecuteReader 
RS.Read() 

If RS.HasRows - True Then 


TxtJenisFilm.Text - RS.Item(4) 
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18. 


19. 


20. 


21. 
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TxtKondisi.Text = RS.Item(7) 


TxtStatusPinjam.Text - RS.Item(8) 


TxtKeterangan.Text - RS.Item(6) 
If TxtKeterangan.Text - "DVD" Then 
TxtHarga.Text - 3000 


Else 


TxtHarga.Text - 2000 
End If 
Else 
Me.cboKoderilm.Text = " " 
End If 
End If 
Catch ex As Exception 
MsgBox (ex.Message, MsgBoxStyle.Information) 
End Try 


TxtJenisFilm.DataBindings.Clear () 


Pada bagian Object pilih cboKodefilm dan pada bagian Procedure 
pilih LostFocus, ketik perintah seperti no. 17. 


Pada bagian Object pilih cboKodeFilm dan pada bagian Procedure 
pilih SelectedIndexChanged, ketik perintah seperti no. 17. 


Pada jendela Solution Explorer pilih ikon View Designer atau pilih 
menu View > Designer atau tekan tombol Shift-F7, untuk menuju 


ke form. 


Klik dua kali tombol perintah Batal, kemudian ketik perintah berikut. 


Call HapusText () 


TxtNoTransaksi.Focus () 


22. Pada jendela Solution Explorer pilih ikon View Designer atau pilih 
menu View > Designer atau tekan tombol Shift-F7, untuk menuju 
ke form. 

23. Klik dua kali tombol perintah Simpan, kemudian ketik perintah: 


If TxtStatusPinjam.Text - "Belum" Then 


SQL = "SELECT * FROM Pinjam Where NoTransaksi-'" 
& TxtNoTransaksi.Text & "'" 


CMD = New OleDbCommand (SQL, DB) 
RS - CMD.ExecuteReader 
Dim SSP As String 
SSP - "Pinjam" 
RS.Read() 
If RS.HasRows - True Then 
Dim Stotal, I As Integer 
Stotal = RS.Item(3) + TxtHarga.Text 


TxtTotal.Text - Stotal 


SOL2 = "UPDATE Pinjam SET NoTransaksi-'" & 

TxtNoTransaksi.Text & "'," & | 

"NoAnggota-'" & CboNoAnggota.Text & 
mo g 

"TglPinjam='" & DateTimePicker1.Text 
arr e 

"Total-'" & Stotal & "'" & _ 

"Where NoTransaksi-'" & 


TxtNoTransaksi.Text & "'" 


SQL3 = "INSERT INTO 
DetailPinjam(NoTransaksi,KodeFilm,Harga,Keterangan)" & _ 


" Values('" & TxtNoTransaksi.Text & "','" & 
cboKodeFilm.Text & "','" & _ 
TxtHarga.Text & "','" & _ 


TxtKeterangan.Text & "')" 
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SSP & "'" & 


& "om 


DetailBayar (NoTransaksi,KodeFilm,Harga,Keterangan) " 


Else 


Pinjam (NoTransaksi,NoAnggota,TglPinjam, Total)" & 


SOL4 - "UPDATE Film SET StatusPinjam-'" & 


"Where KodeFilm-'" & cboKodeFilm.Text 


SOL5 - "INSERT 


& 


" Values('" & TxtNoTransaksi.Text & 


TxtHarga.Text & "','" & 


TxtKeterangan.Text & "')" 

CMD = New OleDbCommand (SOL2, DB) 
CMD. ExecuteNonduery () 

Call BtnBatal Click(sender, e) 
Call TampilkanRecordDetailPinjam () 
CMD = New OleDbCommand (SOL3, DB) 
CMD. ExecuteNonduery () 

Call BtnBatal Click(sender, e) 
Call TampilkanRecordDetailPinjam () 
CMD = New OleDbCommand (SOL4, DB) 
CMD. ExecuteNonduery () 

Call BtnBatal Click(sender, e) 
Call TampilkanRecordDetailPinjam () 
CMD = New OleDbCommand (SOL5, DB) 
CMD. ExecuteNonduery () 

Call BtnBatal Click(sender, e) 


Call TampilkanRecordDetailPinjam () 


SOL2 - "INSERT 


" Values('" & TxtNoTransaksi.Text & 


INTO 


INTO 


CboNoAnggota.Text & "','" & 
DateTimePickerl.Text & "','" & 
TxtHarga.Text & "')" 


SQL3 = "INSERT INTO 
DetailPinjam(NoTransaksi,KodeFilm,Harga,Keterangan)" & 


" Values('" & TxtNoTransaksi.Text & "','" & 
cboKodeFilm.Text & "','" & _ 
TxtHarga.Text & "','" & _ 


TxtKeterangan.Text & "')" 


SOL4 = "UPDATE Film SET StatusPinjam-'" & 
SSP & "'" & 
"Where KodeFilm-'" & cboKodeFilm.Text 
goro 
SOL5 - "INSERT INTO 


DetailBayar (NoTransaksi,KodeFilm,Harga,Keterangan)" & 


" Values('" & TxtNoTransaksi.Text & "','" & 
cboKodeFilm.Text & "','" & _ 
TxtHarga.Text & "','" & _ 


TxtKeterangan.Text & "')" 

CMD - New OleDbCommand (SQL2, DB) 
CMD. ExecuteNonQuery () 

Call BtnBatal Click(sender, e) 
Call TampilkanRecordDetailPinjam () 
CMD = New OleDbCommand (SOL3, DB) 
CMD. ExecuteNonduery () 

Call BtnBatal Click (sender, e) 
Call TampilkanRecordDetailPinjam () 
CMD = New OleDbCommand (SOL4, DB) 
CMD. ExecuteNonduery () 


Call BtnBatal Click(sender, e) 
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Call TampilkanRecordDetailPinjam () 
CMD = New OleDbCommand (SOL5, DB) 
CMD. ExecuteNonduery () 
Call BtnBatal Click(sender, e) 
Call TampilkanRecordDetailPinjam () 
End If 
Else 
MsgBox ("Film Sedang DiPinjam!!!!") 
Call HapusText () 


End If 


24. Kemudian pada bagian Object pilih TxtNoTransaksi dan pada bagian 


25. 


26. 
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Procedure pilih LostFocus, ketik perintah sebagai berikut. 


Dim strSgl = "SELECT COUNT(“) FROM DetailPinjam Where 
NoTransaksi-'" & TxtNoTransaksi.Text & "'" 


CMD = New OleDbCommand (strSgl, DB) 
Dim JmlRec = CInt (CMD.ExecuteScalar) 
If JmlRec >= 3 Then 
MsgBox ("Jumlah Film Di atas 3!!!") 
Call HapusText () 
Else 


CboNoAnggota.Focus () 


End If 


Pada jendela Solution Explorer pilih ikon View Designer atau pilih 
menu View > Designer atau tekan tombol Shift+F7, untuk menuju 


ke form. 


Simpan kembali Form Peminjaman. 


11.2 Menjalankan Form. Peminjaman 


Untuk menjalankan Form Peminjaman, ikuti langkah-langkahnya se- 
bagai berikut: 


1. Jalankan VB2010. 
2. Buka project dengan nama ProjectRentalVOD. 
3. Buat StartUp Form menjadi Form Peminjaman. 


4. Jalankan Form Peminjaman, masukkan data seperti Gambar 11.4. 


- 1 
Form Transaksi Peminjaman Film O 3 
No Transaksi — FO00004 Tanggal Pinjam 15 Juni 2013 EM 
No Anggota  |A000001 % NKP H11 
Nama Anggota Yuniar Supardi 
Rinci Film 
Kode Film ~ Judul film MadMax III | 
Jenis Film Action 
Kondisi Baik 


Harga 3000 Total 


(Simpan | (Baal | | Keluar 


Gambar 11.4 Form Peminjaman dijalankan 
5. Klik tombol Simpan. 


6. Terlihat peminjaman dengan no transaksi FO0004 di datagridview. 
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Gambar 11.5 No Transaksi F000004 di DataGridView 


Untuk meminjam film kedua dalam no transaksi yang sama, ketik 
F000004 di kotak No Transaksi. Kemudian pilih A000001 untuk No 
Anggota yang sama. Pilih F0000002 untuk Kode Film dan klik tombol 


Simpan, seperti Gambar 11.6. 


r 
Form Transaksi injaman Fil 
No Transaksi  F000004 Tanggal Pinjam 15 Juni 2013 B- 


No Anggota A000001 = No KTP 1111111111 


Nama Anggota Yuniar Supardi 


Rinci Film 
Kode Film "| Judul fm MadMax II j 

Jenis Film Action 

Kondisi Baik 

Status Pinjam Belum 

Keterangan CD 

Harga 2000 Total 


Gambar 11.6 Meminjam film kedua 


8. Klik tombol Simpan, sehingga terlihat dua record transaksi pemin- 


jaman film dengan no transaksi F000004 dan total menjadi 5000. 


ae a 


Motmsaki oo Tanggal Pinjam 15 Juni 2013 B~ | 
No Anggota | "| NokTP 
Nama Anggota 
Rinci Film 
Kode Film v Judul Film 
Jenis Film 
Kondisi 
Status Pinjam 
Keterangan 
Harga Total 5000 


| 
| 
| 
d 


Gambar 11.7 Peminjaman film kedua terlihat di DataGridView 


9. Klik tombol Keluar. 


